      MODULE keilst_C
      USE vast_kind_param, ONLY:  DOUBLE
!...Created by Pacific-Sierra Research 77to90  4.3E  06:33:54  12/28/06
!...Modified by Charlotte Froese Fischer
!                     Gediminas Gaigalas  10/05/17
      INTEGER :: NDKEA, NKEI
      INTEGER, DIMENSION(:), pointer :: indkei
      REAL(DOUBLE), DIMENSION(:), pointer :: valkei
      LOGICAL :: FRSTKI
      END MODULE keilst_C
